8bitfiles.net/archives/archives.tar/archives/compuserve-file-archive/23 Geos Applications/GEOVIDPA.2

GEOS ConVerT | 2019-04-13 | 55KB | 642 lines

geoVidPg22
PRG formatted GEOS file V1.0
Epson24pinColor
OP V2.0 or highert2
Maricel7/23
BLASTER'S CONVeRTER V2.5
NOTES
#NOTEPRINT
geoVidPg22V1.0
J. E. Sears
basic
geoBasic
Copyright (c) 1988, Berkeley Softworks
                                        R
.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  )
geoVidPg22
/!0!2
VIDEOtitler10A
Error I:
9)L/)
vqvrvsvtvu
u&t&s&r&q$q0
fqfrfsftfu`
f|f}f~f
z&y&x&w
P%p8)
q4X>V
 ;  /"
8# )#
A! L*0
*L{!
* X*
 L*0:
On disk:
Insert new disk
swap error
geoBasic and data file
@must be on the same disk
Pin a one drive system
geoBasic Info
text manager
GetDirectory
photo manager
note pad
calculator
CONVERT(DA)
?Extra ignored?RedoT
geoVidPg22V1.
(LX*
 P+L.*
OL!SL
basic data  V1.0
basic
geoVidPg22V1.0
J. E. Sears
basic
geoBasic
Copyright (c) 1988, Berkeley Softworks
Disk full, remove some files
Please Select Option:
new document
existing document
to deskTop
File exists, choose another.
Data file is beyond V1.0
WARNING!
This file is write protected.
Please enter new filename:
Please enter an author name
opening file
creating file
L1Y )#
& zY
Not enough free space on
@disk for desk accessory.
running desk accessory
AQ.BQ
Please reboot your system
@using the same GEOS disk
Pthat was first used to run
`geoBasic
Cannot install geoBasic on
@this disk.  Please refer to
Pinstallation directions in
`the manual.
Cannot install geoBasic on a
@write protected disk.
Error installing geoBasic
geoBasic installed.
XLcvX`
 ;  /"
`UUUUUUUUUUUU
UUUUUUUUUUUUUUUUUUUUUUUUU
UUUUUUUUUUUUUUUUUUUUUUUUU
UUUUUUUUUUUUUUUUUUUUUUUUU
LWgLITL]
L ]L,]L
TLJnL
RH K\
 )# ZT
cHL)#
cHL)#L
U E\ ?
 2UL9
<` PUL$
 PUL*
 K\ .k
 +_X`
 )#L<W
] )#
tL/#L
  H\
W K\
X ?\
; M\ Cf
  tf
L+[,=
L/Z 'Yh
 +_ /#
x K\,
X* z*
Q )#
hhL~W
W H\
    H uo 9]H
 \\ B!
[ 9]H
]  ]L
hhhhh
hLZT )#
 K\H #kh
 8k /#
 )# ``
[ 9]H
Ghhh /#L
6^ #k
h G]L
6^ #k
hhhhh`h
[ 9]H
L ]LZT( \\
H B!
l{VvV~^
l!jMj
SJ^@Uy
U+UIU:UXl
bX]?n5na
 Cf /#LHd
e )#LHd )#
Bf mg
BfLmg 6f
 dh vh
hL9W
[ E\h
` /#H #kh
j )#8
] io 1k oo
 ;  /"
 H\ PU E\
-n` .n
m jnp
D_geoVidPg22V1.0
geoVidP
] )# 1k
 &cH8
 &cL,c
geoVidPg22
/!0!2
VIDEOtitler10A
Lxp '
 K\XhhL
!<@DILPTX\`dhly
qLTpL
qLFpL(tLntL`tLfsL6tL
pL|t
X` /#
X` 6t
H prh
[ 6t
X` 6t
oLXpL
pLSqL
in$(1)
in$(2)
in$(3)
blank
@StopProc
blank
@StopProc
blank
@StopProc
blank
@StopProc
@DrawLine
@DrawBox
curve
@FollowMous
patrn
@Pattern
erase
@Erase
color
@UseColor
program info
@ProgInfo
Clear
@ClearJunk
Load screen
@LoadScreen
Save Screen
@SaveScreen
Change
@BorderColo
On/Off
@StartClock
Place Clock
@ClockPos
Draw Tools on/off
@Draw
Menu On/Off
@ShowMenu
@Font
Style
@Style
Enter Text
@EnterText
Place Text
@TextButton
@Bear
Palm tree
@Palm
Angel
@Angel
@Dove
Plane
@Plane
Woman
@Woman
Rocket
@Rocket
Train
@Train
Lounger
@Lounge
Painter
@Painter
Sitter
@Sitter
Cowboy
@Cowboy
Set Color
@WipeColor
Spiral center
@Spiral
UpLeftDown
@TopLeft
LowRightUp
@RightUp
Screen
`Border Color
`Clock
`Drawing
`Text
`Bitmap
`Wipes
Angel
Banner?
BitMapP
Border
BoxErr|
ClearJ`
ClockP
Cowboy>
DoMous
DrawBo
DrawLi
EndBox
EndCol
EndLin
EndMou
EndPat
EndSpr
EnterT
Erase
Follow
GetOld
HideMeh
LoadSc@
LoungeM
Mark1
Mark2
PainteC
Patter
Plane
ProgIn
RightUt
RocketI
SaveSc6
SetOld
ShowCl~
ShowMeT
SitterH
Spiral
StColo
StartB
StartCj
StartL
StartM
StartP
StopCl
StopPr2
Style
TextBu"
TextHe,
TopLef
Train
UseCol
WipeCo
    Woman
menu1
zapit
angel|
baneru
blank
color
cowbor
curve
erase@-
loungv
paintt
patrn
planez
rocktx
siters
trainw
womany
 @DrawLine
 @Draw:
"draw":
 @Main
240:yp
"menu1"
 @Main:
 1650
 @ClearJunk:
 191:
 0,0,39,24:
 0,15,319,199:
 off:
0,0,319,199:
 @StartClock:
 off:
 @StopClock
f$,fs:
(24);:
 @ShowClock,15:

 @ShowClock:
15,c$:c
 xp,yp:
@GetOldPos:
sp$;:
 @SetOldPos
:BUTTON @ClearJunk:RETURN
 @StopClock:
 @ShowClock:
 xp,(yp
9),(xp
40),yp:
 @GetOldPos:xp
(0):yp
 @SetOldPos:
xp,yp:
 @ClockPos:
 @Clp:

 @Clp:
 @Mark1:xp
x1:yp
 off:
 @EndSprite:
 @DrawLine:
 @StopProc:
 @StartLine:
 @StartLine:
 off:
 @Mark1:
 x1,y1:
 @EndLine:
 @EndLine:
 off:
 @Mark2:
 x1,y1
 x2,y2:
 @DrawLine
 @Draw:
"draw":
 @Main
"zapit":
 @Main
 @FollowMous:
 off:
@DoMouse:me
@StartMous:
 @Erase:
 off:
@DoMous:me
 @StartMous:
 @StartMous:
 off:
 @Mark2:
 @EndMous:
 @DoMous,1:
 @DoMous:
 @Mark1:
x1,y1
x2,y2:x2
x1:y2
 @EndMous:
 off:
 @DoMous:
 @Erase
 @FollowMous
 @StopProc:
 @DoMous:
 @Woman:bit$
"woman":
 @BitMap
 @Plane:bit$
"plane":
 @BitMap
 @Train:bit$
"train":
 @BitMap
 @Bear:bit$
"bear":
 @BitMap
 @Cowboy:bit$
"cowbo":
 @BitMap
 @Banner:bit$
"baner":
 @BitMap
 @Angel:bit$
"angel":
 @BitMap
 @Painter:bit$
"paint":
 @BitMap
 @Palm:bit$
"palm":
 @BitMap
 @Sitter:bit$
"siter":
 @BitMap
 @Rocket:bit$
"rockt":
 @BitMap
 @Dove:bit$
"dove":
 @BitMap
 @Lounge:bit$
"loung":
 @BitMap
 @BitMap:
 @Bit:
 @Bit:
 off:
 @Mark1
 bit$,
8),y1:
 @Mark1:x1
(0):y1
 @Mark2:x2
(0):y2
 @DrawBox:
 off:
 @StopProc:
 @StartBox:
 @StartBox:
 off:
 @Mark1:
 x1,y1:
 @EndBox:
 @EndBox:
 1660
 off:
 @Mark2:
 x1,y1,x2,y2:
 @DrawBox
 @Pattern:
 @StopProc:
 off:
 @StartPat:
 @StartPat:
 off:
 @Mark1:
 x1,y1:
 @EndPat:
 @EndPat:
 1660
 off:
 @Mark2:
"Pattern number (0-31)",a:
 x1,y1,x2,y2:
 @Pattern
 @UseColor:
 @StopProc:
 @StColor:
 @StColor:
 off:
 @Mark1:x1
8):y1
 @EndColor:
 @EndColor:
 off:
 @Mark2:x2
8):y2
"Foreground Color (0-15)  ",fg:
"Background Color (0-15)  ",bg:
 x1,y1,x2,y2:
below and to the right of":in$(3)
"the first point.":
 @Main
39,24
49756:
 53280,Bc:
49759
 @Font:
8,"",1:
f$
"Font size",fs:
 @Style:
"Style (14,15,18,19,24-27)",ss:
(ss):

 @EnterText:
"Enter text",a$:
 @TextButton:
 @TextHere:
 @TextHere:
 off:c
 @StartClock:
 @Mark1:
f$,fs:
x1,y1:
 @SaveScreen:
7,"D_geoVidPg2 V1.0"
 off:
"File name to save",fl$:
 fl$,40960,8000:fl$
"/c":
fl$,35840,1024:
 @LoadScreen:
 off:
7,"D_geoVidPg2 V1.0":
 fl$:
 fl$,40960:fl$
"/c":
fl$,35840:
 @ShowMenu:
 @HideMenu
0,0,39,1:m
 @HideMenu:
0,0,39,1:
 @ESP:in$(1)
(128):in$(2)
"SOME kind of error":in$(3)
"has occured.":
 @Info:
 @Main
 @BoxError:in$(1)
"The second point must be":in$(2)
"below and to the right of":in$(3)
"the first point.":
 @Main
39,24
49756:
 53280,Bc:
49759
 @ProgInfo:in$(2)
"geoBasic Video Titler"
(27):in$(3)
"by J. E. Sears":in$(1)
(128):
 @Info:
 @Info:in$(1)
in$(1)
sp$:in$(2)
in$(2)
sp$:in$(3)
in$(3)
"info",Ga:
 @BorderColo:
49756:
53280,Bc:
49759:Bc
0
     @WipeColor
"Foreground color (0-15)",fg:
 same as Draw
"Background color (0-15)",bg
"Border color",Bc
 @Spiral:
19:Xr
20:Yl
12:Yr
Xl,Yl,Xr,Yr
0,0,39,1:
0,2,39,24
49756:
 53280,Bc:
49759
 @TopLeft:
0,0,39,1
Xl,Yl,Xr,Yr
0,0,39,1
0,2,39,24
49756:
 53280,Bc:
49759
 @RightUp
39:Xr
39:Yl
24:Yr
Xl,Yl,Xr,Yr
0,0,39,1
0,2,39,24
49756:
 53280,Bc:
49759
DDDDDDDDDDDDDDDDDDDDDDD@
33333
UuUUUP
UkUUUP
UkUUUP
DzFX
DDDDD
D@DD@
DD@ED
TD@@@DD@